* subr.el (accept-change-group): Fix arg usage.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8825af60ebfd4b8e5a8e467c894a5f7e86abaa0..c1c22eba1dd3c8794a4d823e9561ea8de114e37a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-04-23  Andreas Politz  <politza@fh-trier.de>
+
+       * subr.el (accept-change-group): Fix arg usage (Bug#6095).
+
 2012-04-23  Chong Yidong  <cyd@gnu.org>
 
        * cus-edit.el (customize-apropos, customize-apropos-options):

diff --git a/lisp/subr.el b/lisp/subr.el
index 8e296aa742289e9f2213ee772d3815a786d08c3c..2404f6a56d2f4cbdf291091acef464655a9d5296 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2391,7 +2391,7 @@ to `accept-change-group' or `cancel-change-group'."
 This finishes the change group by accepting its changes as final."
   (dolist (elt handle)
     (with-current-buffer (car elt)
-      (if (eq elt t)
+      (if (eq (cdr elt) t)
          (setq buffer-undo-list t)))))
 
 (defun cancel-change-group (handle)